﻿<Serializable()> _
Public Class Eposcli

#Region "           Atributos                       "
    Private _idPosCli As Int32
    Private _nombre As String
    Private _apePaterno As String
    Private _apeMaterno As String
    Private _edad As Int32
    Private _email As String
    Private _telfijo As String
    Private _telmovil As String
    Private _telLab As String
    Private _ubigeo As String
    Private _centroLaboral As String
    Private _comentario As String
    Private _tpoDcmto As EtpoDcmto
    Private _nroDcmto As String
    Private _estado As String
    Private _desEstado As String
#End Region

#Region "           Propiedades                     "
    Public Property idPosCli() As Int32
        Get
            Return _idPosCli
        End Get
        Set(ByVal value As Int32)
            _idPosCli = value
        End Set
    End Property
    Public Property nombre() As String
        Get
            Return _nombre
        End Get
        Set(ByVal value As String)
            _nombre = value
        End Set
    End Property
    Public Property apePaterno() As String
        Get
            Return _apePaterno
        End Get
        Set(ByVal value As String)
            _apePaterno = value
        End Set
    End Property
    Public Property apeMaterno() As String
        Get
            Return _apeMaterno
        End Get
        Set(ByVal value As String)
            _apeMaterno = value
        End Set
    End Property
    Public Property edad() As Int32
        Get
            Return _edad
        End Get
        Set(ByVal value As Int32)
            _edad = value
        End Set
    End Property
    Public Property email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property
    Public Property telfijo() As String
        Get
            Return _telfijo
        End Get
        Set(ByVal value As String)
            _telfijo = value
        End Set
    End Property
    Public Property telmovil() As String
        Get
            Return _telmovil
        End Get
        Set(ByVal value As String)
            _telmovil = value
        End Set
    End Property
    Public Property telLab() As String
        Get
            Return _telLab
        End Get
        Set(ByVal value As String)
            _telLab = value
        End Set
    End Property
    Public Property ubigeo() As String
        Get
            Return _ubigeo
        End Get
        Set(ByVal value As String)
            _ubigeo = value
        End Set
    End Property
    Public Property centroLaboral() As String
        Get
            Return _centroLaboral
        End Get
        Set(ByVal value As String)
            _centroLaboral = value
        End Set
    End Property
    Public Property comentario() As String
        Get
            Return _comentario
        End Get
        Set(ByVal value As String)
            _comentario = value
        End Set
    End Property
    Public Property EtpoDocmto() As EtpoDcmto
        Get
            Return _tpoDcmto
        End Get
        Set(ByVal value As EtpoDcmto)
            _tpoDcmto = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property desEstado() As String
        Get
            Return _desEstado
        End Get
        Set(ByVal value As String)
            _desEstado = value
        End Set
    End Property
    Public Property nroDcmto() As String
        Get
            Return _nroDcmto
        End Get
        Set(ByVal value As String)
            _nroDcmto = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property NombresCompletos() As String
        Get
            Return nombre & " " & apePaterno & " " & apeMaterno
        End Get
    End Property
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idPosCli As Int32, ByVal nombrecompleto As String)

    End Sub
    Public Sub New(ByVal idPosCli As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal edad As Int32, ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDcmto As String, _
                   ByVal email As String, ByVal telfijo As String, ByVal telmovil As String, ByVal telLab As String, _
                   ByVal ubigeo As String, ByVal centroLaboral As String, ByVal comentario As String)
        Me.idPosCli = idPosCli
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.edad = edad
        Me.email = email
        Me.telfijo = telfijo
        Me.telmovil = telmovil
        Me.telLab = telLab
        Me.ubigeo = ubigeo
        Me.centroLaboral = centroLaboral
        Me.comentario = comentario
        _tpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDcmto = nroDcmto
        Me.desEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
#End Region

End Class
